home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / dc25h-3.zip / DEMO2G.SUB < prev    next >
Text File  |  1990-01-31  |  878b  |  38 lines
  1. ; DEMO2G.SUB, Copyright (c) 1990, Dan Hudgins, All rights reserved.
  2.  
  3. NAME 1 = PIX\DEMO2BFR 0
  4.  
  5. LET |FRAMES = 1
  6. :SECOND_ANIMATION
  7. GRAPH_MODE B&W
  8.  
  9. # 1 Display 0 -0  0 -1E18 1.4 1 50 0   { Try changing scale from 1.4 to 3.0 }
  10. # 2 Display 0 -0  0 -1E18 1.4 1 50 0   { Use the same scale for # 1 & # 2 }
  11. # 4 Display 0  0  0 -1E18 1   1 -25 25
  12.  
  13. SAVE PIXEL NAME 1 NEXT
  14.  
  15. LOCATE 2 2 OUTPUT |FRAMES ECHO  frames down, %%
  16. OUTPUT [ 20 - |FRAMES ]   ECHO  to go.
  17. LET |FRAMES = [ |FRAMES + 1 ]
  18.  
  19. # 1 ROTATE C 0 0  2.25
  20. # 2 ROTATE C 0 0 -1.125
  21. LOOP :SECOND_ANIMATION 19
  22.  
  23. RELEASE |FRAMES
  24.  
  25. BEEP ; so you can know when it is done
  26. LOCATE 2 2 ECHO Press [Return] to start.
  27. WAIT
  28.  
  29. LET |FNAME  =  2 ; pass ordinal value for frame set name
  30.  
  31. RUN DEMO2A.SUB   ; call subroutine
  32.  
  33. RELEASE |FNAME
  34.  
  35. ; End Show Gears in close up of Pair Moving
  36.  
  37. ; END SUB-MACRO 
  38.